function figNumber=watchon;
%WATCHON Sets the current figure pointer to the watch.
%   figNumber=WATCHON will set the current figure's pointer
%   to a watch.
%
%   See also WATCHOFF.

%   Ned Gulley, 6-o1-93
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 5.3 $  $Date: 1997/11/o1 o3:o7:31 $

% If there are no windows open, just set figNumber to a flag value.
o=NaN;
waitsymbol = [ ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 2 2 2 2 1 o o o o o, ...
      o o o o 1 1 2 2 2 2 1 1 o o o o, ...
      o o o 1 1 2 2 2 2 2 1 1 1 o o o, ...
      o o o 1 2 2 2 1 1 1 2 2 1 o o o, ...
      o o o 1 2 2 2 1 1 2 2 2 1 o o o, ...
      o o o 1 1 2 2 2 1 2 2 1 1 o o o, ...
      o o o o 1 1 2 2 1 2 1 1 o o o o, ...
      o o o o o 1 2 2 1 2 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o, ...
      o o o o o 1 1 1 1 1 1 o o o o o ];

waitsymbol = rot90(reshape(waitsymbol, 16, 16));
   

if isempty(get(0,'Children')),
    figNumber=NaN;
else
    figNumber=gcf;
    set(figNumber, 'PointerShapeCData', waitsymbol);
    set(figNumber,'Pointer','custom');
end
